10 IFA=0THENA=1:LOAD"[205]OB [194]LOB",8,1
20 FORX=.TO63:POKE832+X,255:NEXT:FORX=.TO7:POKE2040+X,13:NEXT
30 FORX=.TO3:POKE53248+39+X,1+Z:Z=-(Z=0):NEXT
40 FORX=4TO7:Z=-(Z=0):POKE53248+39+X,1+Z:NEXT
50 POKE53248+23,0:POKE53248+29,0:POKE53248+16,0:POKE53248+21,255
60 POKE53281,0:POKE53280,0:PRINT"[147]"TAB(11)"[154]M O B    B L O B !!"
70 PRINTTAB(10)"JOYSTICK IN PORT TWO"
80 PRINTTAB(1)"[156]PRESS NUMERIC KEYS 1-6 TO CHANGE SPEED"
90 PRINTTAB(1)"PRESS H FOR HORIZONTAL, V FOR VERTICAL"
100 PRINTTAB(8)"PRESS A FOR ALL DIRECTIONS"
110 SYS49152
120 GETN$:N=VAL(N$):IFN>0ANDN<7THENPOKE49625,N
130 IFN$="A"THENSYS49552,255
140 IFN$="V"THENSYS49552,17
150 IFN$="H"THENSYS49552,68
160 GOTO120
170 REM BY H.L. MORIMODO
180 REM I GIVE MY CONSENT TO USE THIS
190 REM ROUTINE IN GAMES SPECIFICALLY
200 REM SUBMITTED TO AHOY! MAGAZINE FOR
210 REM PUBLICATION
220 REM SECRET SYS
230 REM SYS 49532,150,108
240 REM FOR A GHOSTLY CHECKERBOARD